home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tab100 / player.bas < prev    next >
Encoding:
BASIC Source File  |  1995-09-06  |  4.3 KB  |  158 lines
  1. Sub CalculateTableTotal ()
  2.  
  3.     Dim CardVal As Integer
  4.     Dim i As Integer
  5.  
  6.     TableTotal = 0
  7.  
  8.     For i = 1 To TableNo
  9.         CardVal = CardValue(Cards(Val(Form1.Picture1(i).Tag)))
  10.         SetNewValue CardVal
  11.         TableTotal = TableTotal + CardVal
  12.     Next i
  13. End Sub
  14.  
  15. Sub CheckAcesAsOne (First As Integer, Curr As Integer, V As Integer, A() As String, Pos As Integer, j As Integer, VNo As Integer)
  16.  
  17.     If Curr = 11 Then
  18.         If V = First + 1 Then
  19.             A(VNo + 1) = Str$(Pos) + "," + Str$(j)
  20.             VNo = VNo + 1
  21.             Exit Sub
  22.         End If
  23.     End If
  24.  
  25.     If First = 11 Then
  26.         If V = 1 + Curr Then
  27.             A(VNo + 1) = Str$(Pos) + "," + Str$(j)
  28.             VNo = VNo + 1
  29.             Exit Sub
  30.         End If
  31.     End If
  32.     
  33.     If First = 11 Then
  34.         If Curr = 11 Then
  35.             If V = 2 Then
  36.                 A(VNo + 1) = Str$(Pos) + "," + Str$(j)
  37.                 VNo = VNo + 1
  38.                 Exit Sub
  39.             End If
  40.         End If
  41.     End If
  42.  
  43.  
  44. End Sub
  45.  
  46. Sub CheckEqualRank (C1 As Integer)
  47.     Dim PlayerVal As Integer
  48.     Dim NoEqual As Integer
  49.     Dim T1 As Integer
  50.     Dim T2 As Integer
  51.     Dim T3 As Integer
  52.     
  53.  
  54.     PlayerVal = CardValue(Cards(C1))
  55.  
  56.     i = 1
  57.  
  58.     For i = 1 To TableNo
  59.         If PlayerVal = CardValue(Cards(Val(Form1.Picture1(i).Tag))) Then
  60.             Equal(NoEqual + 1) = i
  61.             NoEqual = NoEqual + 1
  62.         End If
  63.     Next i
  64.         
  65.     If NoEqual = 0 Then
  66.         Exit Sub
  67.     End If
  68.  
  69.     For i = NoEqual To 1 Step -1
  70.         AddToScore CardValue(Cards(Val(Form1.Picture1(Equal(i)).Tag)))
  71.         AddToEqualRank (CardValue(Cards(Val(Form1.Picture1(Equal(i)).Tag))))
  72.         ShiftLeftTable Equal(i)
  73.         AddToCardsTotal (1)
  74.     Next i
  75.  
  76.  
  77. End Sub
  78.  
  79. Sub CheckEqualValue (C1 As Integer)
  80.     Dim PlayerVal As Integer
  81.     Dim NoValid As Integer
  82.     Dim T1 As Integer
  83.     Dim T2 As Integer
  84.     Dim T3 As Integer
  85.     Dim i As Integer
  86.  
  87.  
  88.     PlayerVal = CardValue(Cards(C1))
  89.     SetNewValue PlayerVal
  90.     For i = 1 To (TableNo - 1)
  91.        CheckTableCards Valid(), PlayerVal, i, NoValid
  92.     Next i
  93.  
  94.     If NoValid = 0 Then
  95.         Exit Sub
  96.     End If
  97.  
  98.     
  99.  
  100.     If NoValid = 1 Or GameSwitch = COMPUTER_MOVE Then
  101.         T1 = Val(Left$(Valid(1), (InStr(1, Valid(1), ",") - 1)))
  102.         T2 = Val(Right$(Valid(1), (Len(Valid(1)) - (InStr(1, Valid(1), ",")))))
  103.         AddToCardsTotal (2)
  104.         AddToScore CardValue(Cards(Val(Form1.Picture1(T1).Tag)))
  105.         AddToScore CardValue(Cards(Val(Form1.Picture1(T2).Tag)))
  106.         AddToEqualRank CardValue(Cards(Val(Form1.Picture1(T1).Tag)))
  107.         AddToEqualRank CardValue(Cards(Val(Form1.Picture1(T2).Tag)))
  108.         If T1 > T2 Then
  109.             ShiftLeftTable (T1)
  110.             ShiftLeftTable (T2)
  111.         Else
  112.             ShiftLeftTable (T2)
  113.             ShiftLeftTable (T1)
  114.         End If
  115.         Exit Sub
  116.         
  117.     End If
  118.  
  119.     Dim T1Value As String
  120.     Dim T1Suit As String
  121.     Dim T2Value As String
  122.     Dim T2Suit As String
  123.  
  124.     Load Form2
  125.     For i = 1 To NoValid
  126.         T1 = Val(Left$(Valid(i), (InStr(1, Valid(i), ",") - 1)))
  127.         T2 = Val(Right$(Valid(i), (Len(Valid(i)) - (InStr(1, Valid(i), ",")))))
  128.         T1Value = Str$(CardValue(Cards(Val(Form1.Picture1(T1).Tag))))
  129.         T1Suit = Suits(SuitOf(Cards(Val(Form1.Picture1(T1).Tag))))
  130.         T2Value = Str$(CardValue(Cards(Val(Form1.Picture1(T2).Tag))))
  131.         T2Suit = Suits(SuitOf(Cards(Val(Form1.Picture1(T2).Tag))))
  132.         Form2.List1.List(i - 1) = T1Value + " of " + T1Suit + " and " + T2Value + " of " + T2Suit
  133.     Next i
  134.     Beep
  135.     Form2.Show MODAL
  136.     If OptionSelected <> 0 Then
  137.         i = OptionSelected
  138.         AddToCardsTotal (2)
  139.         T1 = Val(Left$(Valid(i), (InStr(1, Valid(i), ",") - 1)))
  140.         T2 = Val(Right$(Valid(i), (Len(Valid(i)) - (InStr(1, Valid(i), ",")))))
  141.         AddToScore CardValue(Cards(Val(Form1.Picture2(T1).Tag)))
  142.         AddToScore CardValue(Cards(Val(Form1.Picture2(T2).Tag)))
  143.  
  144.         AddToEqualRank CardValue(Cards(Val(Form1.Picture2(T1).Tag)))
  145.         AddToEqualRank CardValue(Cards(Val(Form1.Picture2(T2).Tag)))
  146.         
  147.         If T1 > T2 Then
  148.             ShiftLeftTable (T1)
  149.             ShiftLeftTable (T2)
  150.         Else
  151.             ShiftLeftTable (T2)
  152.             ShiftLeftTable (T1)
  153.         End If
  154.         Exit Sub
  155.     End If
  156. End Sub
  157.  
  158.